home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzintnet / wizstart.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  2.2 KB  |  87 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4.  
  5. PARAMETER cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  6. LOCAL cClassLib,cProcs,cWizardToRun,cPaletteSettings
  7.  
  8. m.cClassLib = set('classlib')
  9.  
  10. * This Wizard contains several 8-bit images that share the same palette.
  11. * We must set FoxPro's palette off in order for the one that the
  12. * bitmaps share to be used.
  13.  
  14. m.cPaletteSettings = set('palette')
  15. SET PALETTE OFF
  16.  
  17. *  Parm checking
  18. IF TYPE("m.p2") #"C"
  19.     m.p2 = ""
  20. ENDIF
  21.  
  22. IF TYPE("m.p3") #"C"
  23.     m.p3 = ""
  24. ENDIF
  25.  
  26. * Handle AUTOFORM case here
  27. IF "AUTOFORM" $ UPPER(m.p2)
  28.     cProcs = set('procedure')
  29.     SET PROCEDURE TO wzengine
  30.     SET PROCEDURE TO wizinet ADDITIVE
  31.     oWizard=create('iwizengine')
  32.     IF !EMPTY(m.cOutFileVarName)    && output file name provided
  33.         oWizard.cOutFile = m.cOutFileVarName
  34.     ENDIF
  35.     oWizard.autoform
  36.     m.cOutFileVarName = oWizard.cOutFile
  37.     RELEASE oWizard
  38.     SET PROCEDURE TO &cProcs
  39.     RETURN
  40. ENDIF
  41. m.cWizardToRun = "internetwiz"        && Internet wizard
  42.  
  43. SET CLASS TO INETWIZ ADDITIVE
  44. set CLASS TO WIZARD ADDITIVE
  45.  
  46. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  47. public oWizard
  48.  
  49. oWizard = createobj(m.cWizardToRun,m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  50.     m.p5, m.p6, m.p7, m.p8, m.p9)
  51.     
  52. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  53.     oEngine.aEnvironment[17,1] = m.cClassLib
  54.     oEngine.AddObject('oFileInfo','FileInfo')
  55.     oEngine.oFileInfo.cFilePath=LOWER(oEngine.JustPath(SYS(16)))+'\'
  56.     oWizard.Show()
  57. endif
  58.  
  59. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  60.     * It must be modeless, so leave it alone
  61. else
  62.     release oWizard
  63. endif
  64.  
  65. SET MESSAGE TO
  66. set palette &cPaletteSettings
  67.  
  68. CLEAR CLASS &cWizardToRun
  69. CLEAR CLASS wiztemplate
  70.  
  71. RETURN
  72.  
  73. PROCEDURE dummy
  74.     * This routine is used to resolve Project array references.
  75.     public aflddata[1],afielddata[1],atmpglobals,awizfields,aparms
  76.     public aflddata[1],aglobals[1],aafielddata[1],atmpglobals[1]
  77.     public awizfields[1],aparms[1]
  78. ENDPROC
  79.  
  80. PROCEDURE fxsettype
  81.     *This resolves Mac FOXTOOLS reference
  82. ENDPROC
  83.  
  84. DEFINE CLASS FileInfo AS Custom
  85.     cFilePath=''
  86. ENDDEFINE
  87.